
{ libpl/paslibcall interface }

    intrinsic;

    interface
      USES
        {$U libos/syscall.obj }	 syscall;

      { -----------------------------------------------------------------------------------}

      CONST
        CclearScreen	 = 1;			  {clear the whole screen}
        CclearEScreen	 = 2;			  {clear to the end of the screen}
        CclearELine	 = 3;			  {clear to end of line}

        CgoHome		 = 11;			  {move cursor to home position}
        CleftArrow	 = 12;			  {move cursor left one character position}
        CrightArrow	 = 13;			  {move cursor right one character position}
        CupArrow	 = 14;			  {move cursor up one line position}
        CdownArrow	 = 15;			  {move cursor down one line position}

      { -----------------------------------------------------------------------------------}

        function PAbortFlag : boolean;	    {Apple-period entered or not}

        PROCEDURE GetGPrefix (Var prefix : pathname); {get global working directory}

        procedure ScreenCtr (contrfun : integer); {standard screen control functions}

        procedure GetPrDevice (var PrDevice : e_name);

        function PaslibVersion : integer;     {return PASLIB version}

        PROCEDURE PTranLisaChar (toTranslate : boolean);  {to translate Lisa char when print}

          { Optional Call To Initialize the Heap }
        procedure PLINITHEAP(var ernum,refnum: integer; size,delta: longint;
                            ldsn: integer; swapable: boolean);

    implementation

    { FINIS }

